﻿Imports System.Data
Imports System.Data.SqlClient
Imports Datos
Public Class D_Listado_Combo
    Dim cone As New Acceso_Datos

    Public Function Listado_Combo_DocIdentidad() As DataTable
        Dim dt As New DataTable
        Try
            dt = cone.ConsultarDT("Listar_DocIdentidad")
        Catch ex As Exception

        End Try
        Return dt
    End Function
    Public Function Listado_Combo_TipoVia() As DataTable
        Dim dt As New DataTable
        Try
            dt = cone.ConsultarDT("Listar_Via")
        Catch ex As Exception

        End Try
        Return dt
    End Function
    Public Function Listado_Combo_TipoZona() As DataTable
        Dim dt As New DataTable
        Try
            dt = cone.ConsultarDT("Listar_Zona")
        Catch ex As Exception

        End Try
        Return dt
    End Function
    Public Function Listado_Combo_Departamento() As DataTable
        Dim dt As New DataTable
        Try
            dt = cone.ConsultarDT("Listar_departamento")
        Catch ex As Exception

        End Try
        Return dt
    End Function
    Public Function Listado_Combo_Provincia(ByVal depa As String) As DataTable
        Dim dt As New DataTable
        Try
            dt = cone.ConsultarDT("Listar_Provincia", depa)
        Catch ex As Exception

        End Try
        Return dt
    End Function
    Public Function Listado_Combo_Ubigeo(ByVal prov As String) As DataTable
        Dim dt As New DataTable
        Try
            dt = cone.ConsultarDT("Listar_Ubigeo", prov)
        Catch ex As Exception

        End Try
        Return dt
    End Function
End Class
